home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 25 / CU Amiga Magazine's Super CD-ROM 25 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-08].iso / CUCD / Programming / EasyReq / EasyReqTest.e < prev    next >
Encoding:
Text File  |  1998-04-24  |  883 b   |  24 lines
  1. MODULE 'oomodules/easyreq_oo'
  2.  
  3. PROC main() HANDLE
  4.  DEF x, er:PTR TO easyreq
  5.  NEW er.easyreq('TestMenu!','Yes|No')
  6.  FOR x:=0 TO 2
  7.   WriteF('Tryck Yes/No: \d\n',er.req('Tryck..'))
  8.   WriteF('Test test: \d\n',er.req('Det andra testet..','test'))
  9.   WriteF('Megatest : \d\n',er.req('Ett megamatiskt upptryck\n' +
  10.                                   'som det är meningen att det\n' +
  11.                                   'ska bli väldiggt många rader\n' +
  12.                                   'långt, vi får väl se hur det blir\n' +
  13.                                   'med det nu då..',
  14.                                   'Med|egendefinierade|gads|här :)'))
  15.   IF x=0 THEN er.chgmenugads('En ny meny!!')
  16.   IF x=1 THEN er.chgmenugads('den sista menyn..',
  17.                              'Med..|..mer..|..gads!')
  18.  ENDFOR
  19.  END er
  20.  WriteF('\nout..\n')
  21. EXCEPT
  22.  WriteF('Exception: \s\n',[exception,0])
  23. ENDPROC
  24.